/ BCI NET 2 / BCI NET 2.iso / archives / programming / source / a2.0bemacs-src.lha / Emacs-19.25 / lisp / abbrev.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 69 6d 62 40 67 65 |piled by| jimb@ge|
|00000020| 65 63 68 2e 67 6e 75 2e | 61 69 2e 6d 69 74 2e 65 |ech.gnu.|ai.mit.e|
|00000030| 64 75 20 6f 6e 20 4d 6f | 6e 20 4a 75 6c 20 20 35 |du on Mo|n Jul  5|
|00000040| 20 32 32 3a 30 34 3a 35 | 31 20 31 39 39 33 0a 3b | 22:04:5|1 1993.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 67 64 |;; from |file /gd|
|00000060| 2f 67 6e 75 2f 65 6d 61 | 63 73 2f 31 39 2e 30 2f |/gnu/ema|cs/19.0/|
|00000070| 6c 69 73 70 2f 61 62 62 | 72 65 76 2e 65 6c 0a 3b |lisp/abb|rev.el.;|
|00000080| 3b 3b 20 65 6d 61 63 73 | 20 76 65 72 73 69 6f 6e |;; emacs| version|
|00000090| 20 31 39 2e 31 35 2e 31 | 36 2e 0a 3b 3b 3b 20 62 | 19.15.1|6..;;; b|
|000000a0| 79 74 65 63 6f 6d 70 20 | 76 65 72 73 69 6f 6e 20 |ytecomp |version |
|000000b0| 46 53 46 20 32 2e 31 30 | 0a 3b 3b 3b 20 6f 70 74 |FSF 2.10|.;;; opt|
|000000c0| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|000000d0| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|000000e0| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|000000f0| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000100| 6e 20 45 6d 61 63 73 20 | 31 38 2e 0a 0a 28 69 66 |n Emacs |18...(if|
|00000110| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000120| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000130| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000140| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|00000150| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|00000160| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|00000170| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|00000180| 69 6f 6e 20 22 31 39 22 | 29 29 29 0a 20 20 20 20 |ion "19"|))).    |
|00000190| 28 65 72 72 6f 72 20 22 | 54 68 69 73 20 66 69 6c |(error "|This fil|
|000001a0| 65 20 77 61 73 20 63 6f | 6d 70 69 6c 65 64 20 66 |e was co|mpiled f|
|000001b0| 6f 72 20 45 6d 61 63 73 | 20 31 39 22 29 29 0a 0a |or Emacs| 19"))..|
|000001c0| 28 64 65 66 63 6f 6e 73 | 74 20 6f 6e 6c 79 2d 67 |(defcons|t only-g|
|000001d0| 6c 6f 62 61 6c 2d 61 62 | 62 72 65 76 73 20 6e 69 |lobal-ab|brevs ni|
|000001e0| 6c 20 22 5c 0a 2a 74 20 | 6d 65 61 6e 73 20 75 73 |l "\.*t |means us|
|000001f0| 65 72 20 70 6c 61 6e 73 | 20 74 6f 20 75 73 65 20 |er plans| to use |
|00000200| 67 6c 6f 62 61 6c 20 61 | 62 62 72 65 76 73 20 6f |global a|bbrevs o|
|00000210| 6e 6c 79 2e 0a 4d 61 6b | 65 73 20 74 68 65 20 63 |nly..Mak|es the c|
|00000220| 6f 6d 6d 61 6e 64 73 20 | 74 6f 20 64 65 66 69 6e |ommands |to defin|
|00000230| 65 20 6d 6f 64 65 2d 73 | 70 65 63 69 66 69 63 20 |e mode-s|pecific |
|00000240| 61 62 62 72 65 76 73 20 | 64 65 66 69 6e 65 20 67 |abbrevs |define g|
|00000250| 6c 6f 62 61 6c 20 6f 6e | 65 73 20 69 6e 73 74 65 |lobal on|es inste|
|00000260| 61 64 2e 22 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |ad.").(d|efalias |
|00000270| 27 61 62 62 72 65 76 2d | 6d 6f 64 65 20 23 5b 28 |'abbrev-|mode #[(|
|00000280| 61 72 67 29 20 22 08 84 | 09 00 09 3f 82 0e 00 c2 |arg) "..|...?....|
|00000290| 08 21 c3 56 11 c4 c5 20 | 21 87 22 20 5b 61 72 67 |.!.V... |!." [arg|
|000002a0| 20 61 62 62 72 65 76 2d | 6d 6f 64 65 20 70 72 65 | abbrev-|mode pre|
|000002b0| 66 69 78 2d 6e 75 6d 65 | 72 69 63 2d 76 61 6c 75 |fix-nume|ric-valu|
|000002c0| 65 20 30 20 73 65 74 2d | 62 75 66 66 65 72 2d 6d |e 0 set-|buffer-m|
|000002d0| 6f 64 69 66 69 65 64 2d | 70 20 62 75 66 66 65 72 |odified-|p buffer|
|000002e0| 2d 6d 6f 64 69 66 69 65 | 64 2d 70 5d 20 32 20 22 |-modifie|d-p] 2 "|
|000002f0| 5c 0a 54 6f 67 67 6c 65 | 20 61 62 62 72 65 76 20 |\.Toggle| abbrev |
|00000300| 6d 6f 64 65 2e 0a 57 69 | 74 68 20 61 72 67 75 6d |mode..Wi|th argum|
|00000310| 65 6e 74 20 41 52 47 2c | 20 74 75 72 6e 20 61 62 |ent ARG,| turn ab|
|00000320| 62 72 65 76 20 6d 6f 64 | 65 20 6f 6e 20 69 66 66 |brev mod|e on iff|
|00000330| 20 41 52 47 20 69 73 20 | 70 6f 73 69 74 69 76 65 | ARG is |positive|
|00000340| 2e 0a 49 6e 20 61 62 62 | 72 65 76 20 6d 6f 64 65 |..In abb|rev mode|
|00000350| 2c 20 69 6e 73 65 72 74 | 69 6e 67 20 61 6e 20 61 |, insert|ing an a|
|00000360| 62 62 72 65 76 69 61 74 | 69 6f 6e 20 63 61 75 73 |bbreviat|ion caus|
|00000370| 65 73 20 69 74 20 74 6f | 20 65 78 70 61 6e 64 0a |es it to| expand.|
|00000380| 61 6e 64 20 62 65 20 72 | 65 70 6c 61 63 65 64 20 |and be r|eplaced |
|00000390| 62 79 20 69 74 73 20 65 | 78 70 61 6e 73 69 6f 6e |by its e|xpansion|
|000003a0| 2e 22 20 22 50 22 5d 29 | 0a 28 64 65 66 76 61 72 |." "P"])|.(defvar|
|000003b0| 20 65 64 69 74 2d 61 62 | 62 72 65 76 73 2d 6d 61 | edit-ab|brevs-ma|
|000003c0| 70 20 6e 69 6c 20 22 5c | 0a 4b 65 79 6d 61 70 20 |p nil "\|.Keymap |
|000003d0| 75 73 65 64 20 69 6e 20 | 65 64 69 74 2d 61 62 62 |used in |edit-abb|
|000003e0| 72 65 76 73 2e 22 29 0a | 28 62 79 74 65 2d 63 6f |revs.").|(byte-co|
|000003f0| 64 65 20 22 08 84 13 00 | c1 20 10 c2 08 c3 c4 23 |de "....|. .....#|
|00000400| 88 c2 08 c5 c4 23 88 c1 | 87 22 20 5b 65 64 69 74 |.....#..|." [edit|
|00000410| 2d 61 62 62 72 65 76 73 | 2d 6d 61 70 20 6d 61 6b |-abbrevs|-map mak|
|00000420| 65 2d 73 70 61 72 73 65 | 2d 6b 65 79 6d 61 70 20 |e-sparse|-keymap |
|00000430| 64 65 66 69 6e 65 2d 6b | 65 79 20 22 18 13 22 20 |define-k|ey ".." |
|00000440| 65 64 69 74 2d 61 62 62 | 72 65 76 73 2d 72 65 64 |edit-abb|revs-red|
|00000450| 65 66 69 6e 65 20 22 03 | 03 22 5d 20 34 29 0a 28 |efine ".|."] 4).(|
|00000460| 64 65 66 61 6c 69 61 73 | 20 27 6b 69 6c 6c 2d 61 |defalias| 'kill-a|
|00000470| 6c 6c 2d 61 62 62 72 65 | 76 73 20 23 5b 6e 69 6c |ll-abbre|vs #[nil|
|00000480| 20 22 08 89 19 85 14 00 | c2 09 40 4a 21 88 09 41 | "......|..@J!..A|
|00000490| 89 11 84 06 00 c3 29 87 | 22 20 5b 61 62 62 72 65 |......).|" [abbre|
|000004a0| 76 2d 74 61 62 6c 65 2d | 6e 61 6d 65 2d 6c 69 73 |v-table-|name-lis|
|000004b0| 74 20 74 61 62 6c 65 73 | 20 63 6c 65 61 72 2d 61 |t tables| clear-a|
|000004c0| 62 62 72 65 76 2d 74 61 | 62 6c 65 20 6e 69 6c 5d |bbrev-ta|ble nil]|
|000004d0| 20 33 20 22 5c 0a 55 6e | 64 65 66 69 6e 65 20 61 | 3 "\.Un|define a|
|000004e0| 6c 6c 20 64 65 66 69 6e | 65 64 20 61 62 62 72 65 |ll defin|ed abbre|
|000004f0| 76 73 2e 22 20 6e 69 6c | 5d 29 0a 28 64 65 66 61 |vs." nil|]).(defa|
|00000500| 6c 69 61 73 20 27 69 6e | 73 65 72 74 2d 61 62 62 |lias 'in|sert-abb|
|00000510| 72 65 76 73 20 23 5b 6e | 69 6c 20 22 c0 8a 09 89 |revs #[n|il "....|
|00000520| 1a 83 15 00 c3 5c 6e 40 | c4 5c 22 88 5c 6e 41 89 |.....\n@|.\".\nA.|
|00000530| 12 84 08 00 29 60 29 21 | 87 22 20 5b 70 75 73 68 |....)`)!|." [push|
|00000540| 2d 6d 61 72 6b 20 61 62 | 62 72 65 76 2d 74 61 62 |-mark ab|brev-tab|
|00000550| 6c 65 2d 6e 61 6d 65 2d | 6c 69 73 74 20 74 61 62 |le-name-|list tab|
|00000560| 6c 65 73 20 69 6e 73 65 | 72 74 2d 61 62 62 72 65 |les inse|rt-abbre|
|00000570| 76 2d 74 61 62 6c 65 2d | 64 65 73 63 72 69 70 74 |v-table-|descript|
|00000580| 69 6f 6e 20 74 5d 20 35 | 20 22 5c 0a 49 6e 73 65 |ion t] 5| "\.Inse|
|00000590| 72 74 20 61 66 74 65 72 | 20 70 6f 69 6e 74 20 61 |rt after| point a|
|000005a0| 20 64 65 73 63 72 69 70 | 74 69 6f 6e 20 6f 66 20 | descrip|tion of |
|000005b0| 61 6c 6c 20 64 65 66 69 | 6e 65 64 20 61 62 62 72 |all defi|ned abbr|
|000005c0| 65 76 73 2e 0a 4d 61 72 | 6b 20 69 73 20 73 65 74 |evs..Mar|k is set|
|000005d0| 20 61 66 74 65 72 20 74 | 68 65 20 69 6e 73 65 72 | after t|he inser|
|000005e0| 74 65 64 20 74 65 78 74 | 2e 22 20 6e 69 6c 5d 29 |ted text|." nil])|
|000005f0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 6c 69 73 74 |.(defali|as 'list|
|00000600| 2d 61 62 62 72 65 76 73 | 20 23 5b 6e 69 6c 20 22 |-abbrevs| #[nil "|
|00000610| c0 c1 20 21 87 22 20 5b | 64 69 73 70 6c 61 79 2d |.. !." [|display-|
|00000620| 62 75 66 66 65 72 20 70 | 72 65 70 61 72 65 2d 61 |buffer p|repare-a|
|00000630| 62 62 72 65 76 2d 6c 69 | 73 74 2d 62 75 66 66 65 |bbrev-li|st-buffe|
|00000640| 72 5d 20 32 20 22 5c 0a | 44 69 73 70 6c 61 79 20 |r] 2 "\.|Display |
|00000650| 61 20 6c 69 73 74 20 6f | 66 20 61 6c 6c 20 64 65 |a list o|f all de|
|00000660| 66 69 6e 65 64 20 61 62 | 62 72 65 76 73 2e 22 20 |fined ab|brevs." |
|00000670| 6e 69 6c 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |nil]).(d|efalias |
|00000680| 28 71 75 6f 74 65 20 70 | 72 65 70 61 72 65 2d 61 |(quote p|repare-a|
|00000690| 62 62 72 65 76 2d 6c 69 | 73 74 2d 62 75 66 66 65 |bbrev-li|st-buffe|
|000006a0| 72 29 20 23 5b 6e 69 6c | 20 22 8a c0 c1 21 71 88 |r) #[nil| "...!q.|
|000006b0| c2 20 88 0b 89 1c 83 1c | 00 c5 0c 40 c6 5c 22 88 |. ......|...@.\".|
|000006c0| 0c 41 89 14 84 0f 00 29 | 65 62 88 c7 c8 21 88 c9 |.A.....)|eb...!..|
|000006d0| 20 88 29 c0 c1 21 87 22 | 20 5b 67 65 74 2d 62 75 | .)..!."| [get-bu|
|000006e0| 66 66 65 72 2d 63 72 65 | 61 74 65 20 22 2a 41 62 |ffer-cre|ate "*Ab|
|000006f0| 62 72 65 76 73 2a 22 20 | 65 72 61 73 65 2d 62 75 |brevs*" |erase-bu|
|00000700| 66 66 65 72 20 61 62 62 | 72 65 76 2d 74 61 62 6c |ffer abb|rev-tabl|
|00000710| 65 2d 6e 61 6d 65 2d 6c | 69 73 74 20 74 61 62 6c |e-name-l|ist tabl|
|00000720| 65 73 20 69 6e 73 65 72 | 74 2d 61 62 62 72 65 76 |es inser|t-abbrev|
|00000730| 2d 74 61 62 6c 65 2d 64 | 65 73 63 72 69 70 74 69 |-table-d|escripti|
|00000740| 6f 6e 20 74 20 73 65 74 | 2d 62 75 66 66 65 72 2d |on t set|-buffer-|
|00000750| 6d 6f 64 69 66 69 65 64 | 2d 70 20 6e 69 6c 20 65 |modified|-p nil e|
|00000760| 64 69 74 2d 61 62 62 72 | 65 76 73 2d 6d 6f 64 65 |dit-abbr|evs-mode|
|00000770| 5d 20 34 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 4]).(d|efalias |
|00000780| 27 65 64 69 74 2d 61 62 | 62 72 65 76 73 2d 6d 6f |'edit-ab|brevs-mo|
|00000790| 64 65 20 23 5b 6e 69 6c | 20 22 c0 11 c2 13 c4 0d |de #[nil| "......|
|000007a0| 21 87 22 20 5b 65 64 69 | 74 2d 61 62 62 72 65 76 |!." [edi|t-abbrev|
|000007b0| 73 2d 6d 6f 64 65 20 6d | 61 6a 6f 72 2d 6d 6f 64 |s-mode m|ajor-mod|
|000007c0| 65 20 22 45 64 69 74 2d | 41 62 62 72 65 76 73 22 |e "Edit-|Abbrevs"|
|000007d0| 20 6d 6f 64 65 2d 6e 61 | 6d 65 20 75 73 65 2d 6c | mode-na|me use-l|
|000007e0| 6f 63 61 6c 2d 6d 61 70 | 20 65 64 69 74 2d 61 62 |ocal-map| edit-ab|
|000007f0| 62 72 65 76 73 2d 6d 61 | 70 5d 20 32 20 22 5c 0a |brevs-ma|p] 2 "\.|
|00000800| 4d 61 6a 6f 72 20 6d 6f | 64 65 20 66 6f 72 20 65 |Major mo|de for e|
|00000810| 64 69 74 69 6e 67 20 74 | 68 65 20 6c 69 73 74 20 |diting t|he list |
|00000820| 6f 66 20 61 62 62 72 65 | 76 20 64 65 66 69 6e 69 |of abbre|v defini|
|00000830| 74 69 6f 6e 73 2e 0a 5c | 5c 7b 65 64 69 74 2d 61 |tions..\|\{edit-a|
|00000840| 62 62 72 65 76 73 2d 6d | 61 70 7d 22 20 6e 69 6c |bbrevs-m|ap}" nil|
|00000850| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 64 |]).(defa|lias 'ed|
|00000860| 69 74 2d 61 62 62 72 65 | 76 73 20 23 5b 6e 69 6c |it-abbre|vs #[nil|
|00000870| 20 22 c0 c1 20 21 87 22 | 20 5b 73 77 69 74 63 68 | ".. !."| [switch|
|00000880| 2d 74 6f 2d 62 75 66 66 | 65 72 20 70 72 65 70 61 |-to-buff|er prepa|
|00000890| 72 65 2d 61 62 62 72 65 | 76 2d 6c 69 73 74 2d 62 |re-abbre|v-list-b|
|000008a0| 75 66 66 65 72 5d 20 32 | 20 22 5c 0a 41 6c 74 65 |uffer] 2| "\.Alte|
|000008b0| 72 20 61 62 62 72 65 76 | 20 64 65 66 69 6e 69 74 |r abbrev| definit|
|000008c0| 69 6f 6e 73 20 62 79 20 | 65 64 69 74 69 6e 67 20 |ions by |editing |
|000008d0| 61 20 6c 69 73 74 20 6f | 66 20 74 68 65 6d 2e 0a |a list o|f them..|
|000008e0| 53 65 6c 65 63 74 73 20 | 61 20 62 75 66 66 65 72 |Selects |a buffer|
|000008f0| 20 63 6f 6e 74 61 69 6e | 69 6e 67 20 61 20 6c 69 | contain|ing a li|
|00000900| 73 74 20 6f 66 20 61 62 | 62 72 65 76 20 64 65 66 |st of ab|brev def|
|00000910| 69 6e 69 74 69 6f 6e 73 | 2e 0a 59 6f 75 20 63 61 |initions|..You ca|
|00000920| 6e 20 65 64 69 74 20 74 | 68 65 6d 20 61 6e 64 20 |n edit t|hem and |
|00000930| 74 79 70 65 20 5c 5c 3c | 65 64 69 74 2d 61 62 62 |type \\<|edit-abb|
|00000940| 72 65 76 73 2d 6d 61 70 | 3e 5c 5c 5b 65 64 69 74 |revs-map|>\\[edit|
|00000950| 2d 61 62 62 72 65 76 73 | 2d 72 65 64 65 66 69 6e |-abbrevs|-redefin|
|00000960| 65 5d 20 74 6f 20 72 65 | 64 65 66 69 6e 65 20 61 |e] to re|define a|
|00000970| 62 62 72 65 76 73 0a 61 | 63 63 6f 72 64 69 6e 67 |bbrevs.a|ccording|
|00000980| 20 74 6f 20 79 6f 75 72 | 20 65 64 69 74 69 6e 67 | to your| editing|
|00000990| 2e 0a 42 75 66 66 65 72 | 20 63 6f 6e 74 61 69 6e |..Buffer| contain|
|000009a0| 73 20 61 20 68 65 61 64 | 65 72 20 6c 69 6e 65 20 |s a head|er line |
|000009b0| 66 6f 72 20 65 61 63 68 | 20 61 62 62 72 65 76 20 |for each| abbrev |
|000009c0| 74 61 62 6c 65 2c 0a 20 | 77 68 69 63 68 20 69 73 |table,. |which is|
|000009d0| 20 74 68 65 20 61 62 62 | 72 65 76 20 74 61 62 6c | the abb|rev tabl|
|000009e0| 65 20 6e 61 6d 65 20 69 | 6e 20 70 61 72 65 6e 74 |e name i|n parent|
|000009f0| 68 65 73 65 73 2e 0a 54 | 68 69 73 20 69 73 20 66 |heses..T|his is f|
|00000a00| 6f 6c 6c 6f 77 65 64 20 | 62 79 20 6f 6e 65 20 6c |ollowed |by one l|
|00000a10| 69 6e 65 20 70 65 72 20 | 61 62 62 72 65 76 20 69 |ine per |abbrev i|
|00000a20| 6e 20 74 68 61 74 20 74 | 61 62 6c 65 3a 0a 4e 41 |n that t|able:.NA|
|00000a30| 4d 45 20 20 20 55 53 45 | 43 4f 55 4e 54 20 20 20 |ME   USE|COUNT   |
|00000a40| 45 58 50 41 4e 53 49 4f | 4e 20 20 20 48 4f 4f 4b |EXPANSIO|N   HOOK|
|00000a50| 0a 77 68 65 72 65 20 4e | 41 4d 45 20 61 6e 64 20 |.where N|AME and |
|00000a60| 45 58 50 41 4e 53 49 4f | 4e 20 61 72 65 20 73 74 |EXPANSIO|N are st|
|00000a70| 72 69 6e 67 73 20 77 69 | 74 68 20 71 75 6f 74 65 |rings wi|th quote|
|00000a80| 73 2c 0a 55 53 45 43 4f | 55 4e 54 20 69 73 20 61 |s,.USECO|UNT is a|
|00000a90| 6e 20 69 6e 74 65 67 65 | 72 2c 20 61 6e 64 20 48 |n intege|r, and H|
|00000aa0| 4f 4f 4b 20 69 73 20 61 | 6e 79 20 76 61 6c 69 64 |OOK is a|ny valid|
|00000ab0| 20 66 75 6e 63 74 69 6f | 6e 0a 6f 72 20 6d 61 79 | functio|n.or may|
|00000ac0| 20 62 65 20 6f 6d 69 74 | 74 65 64 20 28 69 74 20 | be omit|ted (it |
|00000ad0| 69 73 20 75 73 75 61 6c | 6c 79 20 6f 6d 69 74 74 |is usual|ly omitt|
|00000ae0| 65 64 29 2e 22 20 6e 69 | 6c 5d 29 0a 28 64 65 66 |ed)." ni|l]).(def|
|00000af0| 61 6c 69 61 73 20 27 65 | 64 69 74 2d 61 62 62 72 |alias 'e|dit-abbr|
|00000b00| 65 76 73 2d 72 65 64 65 | 66 69 6e 65 20 23 5b 6e |evs-rede|fine #[n|
|00000b10| 69 6c 20 22 c0 c1 21 88 | c2 c3 21 87 22 20 5b 64 |il "..!.|..!." [d|
|00000b20| 65 66 69 6e 65 2d 61 62 | 62 72 65 76 73 20 74 20 |efine-ab|brevs t |
|00000b30| 73 65 74 2d 62 75 66 66 | 65 72 2d 6d 6f 64 69 66 |set-buff|er-modif|
|00000b40| 69 65 64 2d 70 20 6e 69 | 6c 5d 20 32 20 22 5c 0a |ied-p ni|l] 2 "\.|
|00000b50| 52 65 64 65 66 69 6e 65 | 20 61 62 62 72 65 76 73 |Redefine| abbrevs|
|00000b60| 20 61 63 63 6f 72 64 69 | 6e 67 20 74 6f 20 63 75 | accordi|ng to cu|
|00000b70| 72 72 65 6e 74 20 62 75 | 66 66 65 72 20 63 6f 6e |rrent bu|ffer con|
|00000b80| 74 65 6e 74 73 2e 22 20 | 6e 69 6c 5d 29 0a 28 64 |tents." |nil]).(d|
|00000b90| 65 66 61 6c 69 61 73 20 | 27 64 65 66 69 6e 65 2d |efalias |'define-|
|00000ba0| 61 62 62 72 65 76 73 20 | 23 5b 28 26 6f 70 74 69 |abbrevs |#[(&opti|
|00000bb0| 6f 6e 61 6c 20 61 72 67 | 29 20 22 08 83 07 00 c1 |onal arg|) ".....|
|00000bc0| 20 88 8a 65 62 88 6d 3f | 85 7c 00 c2 c3 c4 c5 23 | ..eb.m?|.|.....#|
|00000bd0| 85 7c 00 70 1e 06 c7 0e | 06 21 1e 08 c4 1e 09 c4 |.|.p....|.!......|
|00000be0| 1e 5c 6e c4 1e 0b c4 1e | 0c c4 1e 0d ce 79 88 ce |.\n.....|.....y..|
|00000bf0| 79 88 6c 84 70 00 c7 0e | 06 21 16 5c 6e c7 0e 06 |y.l.p...|.!.\n...|
|00000c00| 21 16 0d c7 0e 06 21 16 | 0c cf c4 78 88 6c 3f 85 |!.....!.|...x.l?.|
|00000c10| 59 00 c7 0e 06 21 16 0b | cf c4 78 88 0e 5c 6e 0e |Y....!..|..x..\n.|
|00000c20| 0c 0e 0b 0e 0d 46 0e 09 | 42 16 09 82 33 00 d0 0e |.....F..|B...3...|
|00000c30| 08 0e 09 5c 22 88 2e 07 | 82 0b 00 29 87 22 20 5b |...\"...|...)." [|
|00000c40| 61 72 67 20 6b 69 6c 6c | 2d 61 6c 6c 2d 61 62 62 |arg kill|-all-abb|
|00000c50| 72 65 76 73 20 72 65 2d | 73 65 61 72 63 68 2d 66 |revs re-|search-f|
|00000c60| 6f 72 77 61 72 64 20 22 | 5e 28 22 20 6e 69 6c 20 |orward "|^(" nil |
|00000c70| 74 20 62 75 66 20 72 65 | 61 64 20 74 61 62 6c 65 |t buf re|ad table|
|00000c80| 20 61 62 62 72 65 76 73 | 20 6e 61 6d 65 20 68 6f | abbrevs| name ho|
|00000c90| 6f 6b 20 65 78 70 20 63 | 6f 75 6e 74 20 31 20 22 |ok exp c|ount 1 "|
|00000ca0| 20 09 5c 6e 0c 22 20 64 | 65 66 69 6e 65 2d 61 62 | .\n." d|efine-ab|
|00000cb0| 62 72 65 76 2d 74 61 62 | 6c 65 5d 20 34 20 22 5c |brev-tab|le] 4 "\|
|00000cc0| 0a 44 65 66 69 6e 65 20 | 61 62 62 72 65 76 73 20 |.Define |abbrevs |
|00000cd0| 61 63 63 6f 72 64 69 6e | 67 20 74 6f 20 63 75 72 |accordin|g to cur|
|00000ce0| 72 65 6e 74 20 76 69 73 | 69 62 6c 65 20 62 75 66 |rent vis|ible buf|
|00000cf0| 66 65 72 20 63 6f 6e 74 | 65 6e 74 73 2e 0a 53 65 |fer cont|ents..Se|
|00000d00| 65 20 64 6f 63 75 6d 65 | 6e 74 61 74 69 6f 6e 20 |e docume|ntation |
|00000d10| 6f 66 20 60 65 64 69 74 | 2d 61 62 62 72 65 76 73 |of `edit|-abbrevs|
|00000d20| 27 20 66 6f 72 20 69 6e | 66 6f 20 6f 6e 20 74 68 |' for in|fo on th|
|00000d30| 65 20 66 6f 72 6d 61 74 | 20 6f 66 20 74 68 65 0a |e format| of the.|
|00000d40| 74 65 78 74 20 79 6f 75 | 20 6d 75 73 74 20 68 61 |text you| must ha|
|00000d50| 76 65 20 69 6e 20 74 68 | 65 20 62 75 66 66 65 72 |ve in th|e buffer|
|00000d60| 2e 0a 57 69 74 68 20 61 | 72 67 75 6d 65 6e 74 2c |..With a|rgument,|
|00000d70| 20 65 6c 69 6d 69 6e 61 | 74 65 20 61 6c 6c 20 61 | elimina|te all a|
|00000d80| 62 62 72 65 76 20 64 65 | 66 69 6e 69 74 69 6f 6e |bbrev de|finition|
|00000d90| 73 20 65 78 63 65 70 74 | 0a 74 68 65 20 6f 6e 65 |s except|.the one|
|00000da0| 73 20 64 65 66 69 6e 65 | 64 20 66 72 6f 6d 20 74 |s define|d from t|
|00000db0| 68 65 20 62 75 66 66 65 | 72 20 6e 6f 77 2e 22 20 |he buffe|r now." |
|00000dc0| 22 50 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |"P"]).(d|efalias |
|00000dd0| 27 72 65 61 64 2d 61 62 | 62 72 65 76 2d 66 69 6c |'read-ab|brev-fil|
|00000de0| 65 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 66 |e #[(&op|tional f|
|00000df0| 69 6c 65 20 71 75 69 65 | 74 6c 79 29 20 22 c0 09 |ile quie|tly) "..|
|00000e00| 83 10 00 09 47 c2 56 83 | 10 00 09 82 11 00 0b c4 |....G.V.|........|
|00000e10| 0d 23 88 c6 16 07 c4 89 | 16 08 87 22 20 5b 6c 6f |.#......|..." [lo|
|00000e20| 61 64 20 66 69 6c 65 20 | 30 20 61 62 62 72 65 76 |ad file |0 abbrev|
|00000e30| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 6e 69 6c 20 71 |-file-na|me nil q|
|00000e40| 75 69 65 74 6c 79 20 74 | 20 73 61 76 65 2d 61 62 |uietly t| save-ab|
|00000e50| 62 72 65 76 73 20 61 62 | 62 72 65 76 73 2d 63 68 |brevs ab|brevs-ch|
|00000e60| 61 6e 67 65 64 5d 20 34 | 20 22 5c 0a 52 65 61 64 |anged] 4| "\.Read|
|00000e70| 20 61 62 62 72 65 76 20 | 64 65 66 69 6e 69 74 69 | abbrev |definiti|
|00000e80| 6f 6e 73 20 66 72 6f 6d | 20 66 69 6c 65 20 77 72 |ons from| file wr|
|00000e90| 69 74 74 65 6e 20 77 69 | 74 68 20 60 77 72 69 74 |itten wi|th `writ|
|00000ea0| 65 2d 61 62 62 72 65 76 | 2d 66 69 6c 65 27 2e 0a |e-abbrev|-file'..|
|00000eb0| 4f 70 74 69 6f 6e 61 6c | 20 61 72 67 75 6d 65 6e |Optional| argumen|
|00000ec0| 74 20 46 49 4c 45 20 69 | 73 20 74 68 65 20 6e 61 |t FILE i|s the na|
|00000ed0| 6d 65 20 6f 66 20 74 68 | 65 20 66 69 6c 65 20 74 |me of th|e file t|
|00000ee0| 6f 20 72 65 61 64 3b 0a | 69 74 20 64 65 66 61 75 |o read;.|it defau|
|00000ef0| 6c 74 73 20 74 6f 20 74 | 68 65 20 76 61 6c 75 65 |lts to t|he value|
|00000f00| 20 6f 66 20 60 61 62 62 | 72 65 76 2d 66 69 6c 65 | of `abb|rev-file|
|00000f10| 2d 6e 61 6d 65 27 2e 0a | 4f 70 74 69 6f 6e 61 6c |-name'..|Optional|
|00000f20| 20 73 65 63 6f 6e 64 20 | 61 72 67 75 6d 65 6e 74 | second |argument|
|00000f30| 20 51 55 49 45 54 4c 59 | 20 6e 6f 6e 2d 6e 69 6c | QUIETLY| non-nil|
|00000f40| 20 6d 65 61 6e 73 20 64 | 6f 6e 27 74 20 70 72 69 | means d|on't pri|
|00000f50| 6e 74 20 61 6e 79 74 68 | 69 6e 67 2e 22 20 22 66 |nt anyth|ing." "f|
|00000f60| 52 65 61 64 20 61 62 62 | 72 65 76 20 66 69 6c 65 |Read abb|rev file|
|00000f70| 3a 20 22 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |: "]).(d|efalias |
|00000f80| 27 71 75 69 65 74 6c 79 | 2d 72 65 61 64 2d 61 62 |'quietly|-read-ab|
|00000f90| 62 72 65 76 2d 66 69 6c | 65 20 23 5b 28 26 6f 70 |brev-fil|e #[(&op|
|00000fa0| 74 69 6f 6e 61 6c 20 66 | 69 6c 65 29 20 22 c0 09 |tional f|ile) "..|
|00000fb0| c2 5c 22 87 22 20 5b 72 | 65 61 64 2d 61 62 62 72 |.\"." [r|ead-abbr|
|00000fc0| 65 76 2d 66 69 6c 65 20 | 66 69 6c 65 20 74 5d 20 |ev-file |file t] |
|00000fd0| 33 20 22 5c 0a 52 65 61 | 64 20 61 62 62 72 65 76 |3 "\.Rea|d abbrev|
|00000fe0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 73 20 66 72 6f | definit|ions fro|
|00000ff0| 6d 20 66 69 6c 65 20 77 | 72 69 74 74 65 6e 20 77 |m file w|ritten w|
|00001000| 69 74 68 20 77 72 69 74 | 65 2d 61 62 62 72 65 76 |ith writ|e-abbrev|
|00001010| 2d 66 69 6c 65 2e 0a 4f | 70 74 69 6f 6e 61 6c 20 |-file..O|ptional |
|00001020| 61 72 67 75 6d 65 6e 74 | 20 46 49 4c 45 20 69 73 |argument| FILE is|
|00001030| 20 74 68 65 20 6e 61 6d | 65 20 6f 66 20 74 68 65 | the nam|e of the|
|00001040| 20 66 69 6c 65 20 74 6f | 20 72 65 61 64 3b 0a 69 | file to| read;.i|
|00001050| 74 20 64 65 66 61 75 6c | 74 73 20 74 6f 20 74 68 |t defaul|ts to th|
|00001060| 65 20 76 61 6c 75 65 20 | 6f 66 20 60 61 62 62 72 |e value |of `abbr|
|00001070| 65 76 2d 66 69 6c 65 2d | 6e 61 6d 65 27 2e 0a 44 |ev-file-|name'..D|
|00001080| 6f 65 73 20 6e 6f 74 20 | 70 72 69 6e 74 20 61 6e |oes not |print an|
|00001090| 79 74 68 69 6e 67 2e 22 | 5d 29 0a 28 64 65 66 61 |ything."|]).(defa|
|000010a0| 6c 69 61 73 20 27 77 72 | 69 74 65 2d 61 62 62 72 |lias 'wr|ite-abbr|
|000010b0| 65 76 2d 66 69 6c 65 20 | 23 5b 28 66 69 6c 65 29 |ev-file |#[(file)|
|000010c0| 20 22 08 83 0b 00 08 47 | c1 56 84 0d 00 5c 6e 10 | ".....G|.V...\n.|
|000010d0| 8a c3 c4 21 71 88 c5 20 | 88 0e 06 89 1e 07 83 2e |...!q.. |........|
|000010e0| 00 c8 0e 07 40 c9 5c 22 | 88 0e 07 41 89 16 07 84 |....@.\"|...A....|
|000010f0| 1e 00 29 ca cb 64 08 23 | 88 c5 20 29 87 22 20 5b |..)..d.#|.. )." [|
|00001100| 66 69 6c 65 20 30 20 61 | 62 62 72 65 76 2d 66 69 |file 0 a|bbrev-fi|
|00001110| 6c 65 2d 6e 61 6d 65 20 | 67 65 74 2d 62 75 66 66 |le-name |get-buff|
|00001120| 65 72 2d 63 72 65 61 74 | 65 20 22 20 77 72 69 74 |er-creat|e " writ|
|00001130| 65 2d 61 62 62 72 65 76 | 2d 66 69 6c 65 22 20 65 |e-abbrev|-file" e|
|00001140| 72 61 73 65 2d 62 75 66 | 66 65 72 20 61 62 62 72 |rase-buf|fer abbr|
|00001150| 65 76 2d 74 61 62 6c 65 | 2d 6e 61 6d 65 2d 6c 69 |ev-table|-name-li|
|00001160| 73 74 20 74 61 62 6c 65 | 73 20 69 6e 73 65 72 74 |st table|s insert|
|00001170| 2d 61 62 62 72 65 76 2d | 74 61 62 6c 65 2d 64 65 |-abbrev-|table-de|
|00001180| 73 63 72 69 70 74 69 6f | 6e 20 6e 69 6c 20 77 72 |scriptio|n nil wr|
|00001190| 69 74 65 2d 72 65 67 69 | 6f 6e 20 31 5d 20 35 20 |ite-regi|on 1] 5 |
|000011a0| 22 5c 0a 57 72 69 74 65 | 20 61 6c 6c 20 61 62 62 |"\.Write| all abb|
|000011b0| 72 65 76 20 64 65 66 69 | 6e 69 74 69 6f 6e 73 20 |rev defi|nitions |
|000011c0| 74 6f 20 61 20 66 69 6c | 65 20 6f 66 20 4c 69 73 |to a fil|e of Lis|
|000011d0| 70 20 63 6f 64 65 2e 0a | 54 68 65 20 66 69 6c 65 |p code..|The file|
|000011e0| 20 77 72 69 74 74 65 6e | 20 63 61 6e 20 62 65 20 | written| can be |
|000011f0| 6c 6f 61 64 65 64 20 69 | 6e 20 61 6e 6f 74 68 65 |loaded i|n anothe|
|00001200| 72 20 73 65 73 73 69 6f | 6e 20 74 6f 20 64 65 66 |r sessio|n to def|
|00001210| 69 6e 65 20 74 68 65 20 | 73 61 6d 65 20 61 62 62 |ine the |same abb|
|00001220| 72 65 76 73 2e 0a 54 68 | 65 20 61 72 67 75 6d 65 |revs..Th|e argume|
|00001230| 6e 74 20 46 49 4c 45 20 | 69 73 20 74 68 65 20 66 |nt FILE |is the f|
|00001240| 69 6c 65 20 6e 61 6d 65 | 20 74 6f 20 77 72 69 74 |ile name| to writ|
|00001250| 65 2e 22 20 28 6c 69 73 | 74 20 28 72 65 61 64 2d |e." (lis|t (read-|
|00001260| 66 69 6c 65 2d 6e 61 6d | 65 20 22 57 72 69 74 65 |file-nam|e "Write|
|00001270| 20 61 62 62 72 65 76 20 | 66 69 6c 65 3a 20 22 20 | abbrev |file: " |
|00001280| 28 66 69 6c 65 2d 6e 61 | 6d 65 2d 64 69 72 65 63 |(file-na|me-direc|
|00001290| 74 6f 72 79 20 28 65 78 | 70 61 6e 64 2d 66 69 6c |tory (ex|pand-fil|
|000012a0| 65 2d 6e 61 6d 65 20 61 | 62 62 72 65 76 2d 66 69 |e-name a|bbrev-fi|
|000012b0| 6c 65 2d 6e 61 6d 65 29 | 29 20 61 62 62 72 65 76 |le-name)|) abbrev|
|000012c0| 2d 66 69 6c 65 2d 6e 61 | 6d 65 29 29 5d 29 0a 28 |-file-na|me))]).(|
|000012d0| 64 65 66 61 6c 69 61 73 | 20 27 61 64 64 2d 6d 6f |defalias| 'add-mo|
|000012e0| 64 65 2d 61 62 62 72 65 | 76 20 23 5b 28 61 72 67 |de-abbre|v #[(arg|
|000012f0| 29 20 22 c0 09 83 09 00 | 5c 6e 82 10 00 0b 86 10 |) ".....|\n......|
|00001300| 00 c4 c5 21 c6 0e 07 23 | 87 22 20 5b 61 64 64 2d |...!...#|." [add-|
|00001310| 61 62 62 72 65 76 20 6f | 6e 6c 79 2d 67 6c 6f 62 |abbrev o|nly-glob|
|00001320| 61 6c 2d 61 62 62 72 65 | 76 73 20 67 6c 6f 62 61 |al-abbre|vs globa|
|00001330| 6c 2d 61 62 62 72 65 76 | 2d 74 61 62 6c 65 20 6c |l-abbrev|-table l|
|00001340| 6f 63 61 6c 2d 61 62 62 | 72 65 76 2d 74 61 62 6c |ocal-abb|rev-tabl|
|00001350| 65 20 65 72 72 6f 72 20 | 22 4e 6f 20 70 65 72 2d |e error |"No per-|
|00001360| 6d 6f 64 65 20 61 62 62 | 72 65 76 20 74 61 62 6c |mode abb|rev tabl|
|00001370| 65 22 20 22 4d 6f 64 65 | 22 20 61 72 67 5d 20 34 |e" "Mode|" arg] 4|
|00001380| 20 22 5c 0a 44 65 66 69 | 6e 65 20 6d 6f 64 65 2d | "\.Defi|ne mode-|
|00001390| 73 70 65 63 69 66 69 63 | 20 61 62 62 72 65 76 20 |specific| abbrev |
|000013a0| 66 6f 72 20 6c 61 73 74 | 20 77 6f 72 64 28 73 29 |for last| word(s)|
|000013b0| 20 62 65 66 6f 72 65 20 | 70 6f 69 6e 74 2e 0a 41 | before |point..A|
|000013c0| 72 67 75 6d 65 6e 74 20 | 69 73 20 68 6f 77 20 6d |rgument |is how m|
|000013d0| 61 6e 79 20 77 6f 72 64 | 73 20 62 65 66 6f 72 65 |any word|s before|
|000013e0| 20 70 6f 69 6e 74 20 66 | 6f 72 6d 20 74 68 65 20 | point f|orm the |
|000013f0| 65 78 70 61 6e 73 69 6f | 6e 3b 0a 6f 72 20 7a 65 |expansio|n;.or ze|
|00001400| 72 6f 20 6d 65 61 6e 73 | 20 74 68 65 20 72 65 67 |ro means| the reg|
|00001410| 69 6f 6e 20 69 73 20 74 | 68 65 20 65 78 70 61 6e |ion is t|he expan|
|00001420| 73 69 6f 6e 2e 0a 41 20 | 6e 65 67 61 74 69 76 65 |sion..A |negative|
|00001430| 20 61 72 67 75 6d 65 6e | 74 20 6d 65 61 6e 73 20 | argumen|t means |
|00001440| 74 6f 20 75 6e 64 65 66 | 69 6e 65 20 74 68 65 20 |to undef|ine the |
|00001450| 73 70 65 63 69 66 69 65 | 64 20 61 62 62 72 65 76 |specifie|d abbrev|
|00001460| 2e 0a 52 65 61 64 73 20 | 74 68 65 20 61 62 62 72 |..Reads |the abbr|
|00001470| 65 76 69 61 74 69 6f 6e | 20 69 6e 20 74 68 65 20 |eviation| in the |
|00001480| 6d 69 6e 69 62 75 66 66 | 65 72 2e 0a 0a 44 6f 6e |minibuff|er...Don|
|00001490| 27 74 20 75 73 65 20 74 | 68 69 73 20 66 75 6e 63 |'t use t|his func|
|000014a0| 74 69 6f 6e 20 69 6e 20 | 61 20 4c 69 73 70 20 70 |tion in |a Lisp p|
|000014b0| 72 6f 67 72 61 6d 3b 20 | 75 73 65 20 60 64 65 66 |rogram; |use `def|
|000014c0| 69 6e 65 2d 61 62 62 72 | 65 76 27 20 69 6e 73 74 |ine-abbr|ev' inst|
|000014d0| 65 61 64 2e 22 20 22 70 | 22 5d 29 0a 28 64 65 66 |ead." "p|"]).(def|
|000014e0| 61 6c 69 61 73 20 27 61 | 64 64 2d 67 6c 6f 62 61 |alias 'a|dd-globa|
|000014f0| 6c 2d 61 62 62 72 65 76 | 20 23 5b 28 61 72 67 29 |l-abbrev| #[(arg)|
|00001500| 20 22 c0 09 c2 0b 23 87 | 22 20 5b 61 64 64 2d 61 | "....#.|" [add-a|
|00001510| 62 62 72 65 76 20 67 6c | 6f 62 61 6c 2d 61 62 62 |bbrev gl|obal-abb|
|00001520| 72 65 76 2d 74 61 62 6c | 65 20 22 47 6c 6f 62 61 |rev-tabl|e "Globa|
|00001530| 6c 22 20 61 72 67 5d 20 | 34 20 22 5c 0a 44 65 66 |l" arg] |4 "\.Def|
|00001540| 69 6e 65 20 67 6c 6f 62 | 61 6c 20 28 61 6c 6c 20 |ine glob|al (all |
|00001550| 6d 6f 64 65 73 29 20 61 | 62 62 72 65 76 20 66 6f |modes) a|bbrev fo|
|00001560| 72 20 6c 61 73 74 20 77 | 6f 72 64 28 73 29 20 62 |r last w|ord(s) b|
|00001570| 65 66 6f 72 65 20 70 6f | 69 6e 74 2e 0a 54 68 65 |efore po|int..The|
|00001580| 20 70 72 65 66 69 78 20 | 61 72 67 75 6d 65 6e 74 | prefix |argument|
|00001590| 20 73 70 65 63 69 66 69 | 65 73 20 74 68 65 20 6e | specifi|es the n|
|000015a0| 75 6d 62 65 72 20 6f 66 | 20 77 6f 72 64 73 20 62 |umber of| words b|
|000015b0| 65 66 6f 72 65 20 70 6f | 69 6e 74 20 74 68 61 74 |efore po|int that|
|000015c0| 20 66 6f 72 6d 20 74 68 | 65 0a 65 78 70 61 6e 73 | form th|e.expans|
|000015d0| 69 6f 6e 3b 20 6f 72 20 | 7a 65 72 6f 20 6d 65 61 |ion; or |zero mea|
|000015e0| 6e 73 20 74 68 65 20 72 | 65 67 69 6f 6e 20 69 73 |ns the r|egion is|
|000015f0| 20 74 68 65 20 65 78 70 | 61 6e 73 69 6f 6e 2e 0a | the exp|ansion..|
|00001600| 41 20 6e 65 67 61 74 69 | 76 65 20 61 72 67 75 6d |A negati|ve argum|
|00001610| 65 6e 74 20 6d 65 61 6e | 73 20 74 6f 20 75 6e 64 |ent mean|s to und|
|00001620| 65 66 69 6e 65 20 74 68 | 65 20 73 70 65 63 69 66 |efine th|e specif|
|00001630| 69 65 64 20 61 62 62 72 | 65 76 2e 0a 54 68 69 73 |ied abbr|ev..This|
|00001640| 20 63 6f 6d 6d 61 6e 64 | 20 75 73 65 73 20 74 68 | command| uses th|
|00001650| 65 20 6d 69 6e 69 62 75 | 66 66 65 72 20 74 6f 20 |e minibu|ffer to |
|00001660| 72 65 61 64 20 74 68 65 | 20 61 62 62 72 65 76 69 |read the| abbrevi|
|00001670| 61 74 69 6f 6e 2e 0a 0a | 44 6f 6e 27 74 20 75 73 |ation...|Don't us|
|00001680| 65 20 74 68 69 73 20 66 | 75 6e 63 74 69 6f 6e 20 |e this f|unction |
|00001690| 69 6e 20 61 20 4c 69 73 | 70 20 70 72 6f 67 72 61 |in a Lis|p progra|
|000016a0| 6d 3b 20 75 73 65 20 60 | 64 65 66 69 6e 65 2d 61 |m; use `|define-a|
|000016b0| 62 62 72 65 76 27 20 69 | 6e 73 74 65 61 64 2e 22 |bbrev' i|nstead."|
|000016c0| 20 22 70 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "p"]).(|defalias|
|000016d0| 20 28 71 75 6f 74 65 20 | 61 64 64 2d 61 62 62 72 | (quote |add-abbr|
|000016e0| 65 76 29 20 23 5b 28 74 | 61 62 6c 65 20 74 79 70 |ev) #[(t|able typ|
|000016f0| 65 20 61 72 67 29 20 22 | 08 c1 59 85 1a 00 60 08 |e arg) "|..Y...`.|
|00001700| c1 55 83 12 00 c2 20 82 | 19 00 8a 08 5b 76 88 60 |.U.... .|....[v.`|
|00001710| 29 7b c3 1c 1d c6 c7 0d | 83 27 00 c8 82 28 00 c9 |){......|.'...(..|
|00001720| 0e 5c 6e 0d 23 21 14 0d | 83 48 00 cb 0c 0e 0c 5c |.\n.#!..|.H.....\|
|00001730| 22 83 48 00 cd c7 ce 0c | cb 0c 0e 0c 5c 22 23 21 |".H.....|....\"#!|
|00001740| 85 4f 00 cf 0e 0c 0c 97 | 0d 23 2a 87 22 20 5b 61 |.O......|.#*." [a|
|00001750| 72 67 20 30 20 6d 61 72 | 6b 20 6e 69 6c 20 6e 61 |rg 0 mar|k nil na|
|00001760| 6d 65 20 65 78 70 20 72 | 65 61 64 2d 73 74 72 69 |me exp r|ead-stri|
|00001770| 6e 67 20 66 6f 72 6d 61 | 74 20 22 25 73 20 61 62 |ng forma|t "%s ab|
|00001780| 62 72 65 76 20 66 6f 72 | 20 5c 22 25 73 5c 22 3a |brev for| \"%s\":|
|00001790| 20 22 20 22 55 6e 64 65 | 66 69 6e 65 20 25 73 20 | " "Unde|fine %s |
|000017a0| 61 62 62 72 65 76 3a 20 | 22 20 74 79 70 65 20 61 |abbrev: |" type a|
|000017b0| 62 62 72 65 76 2d 65 78 | 70 61 6e 73 69 6f 6e 20 |bbrev-ex|pansion |
|000017c0| 74 61 62 6c 65 20 79 2d | 6f 72 2d 6e 2d 70 20 22 |table y-|or-n-p "|
|000017d0| 25 73 20 65 78 70 61 6e | 64 73 20 74 6f 20 5c 22 |%s expan|ds to \"|
|000017e0| 25 73 5c 22 3b 20 72 65 | 64 65 66 69 6e 65 3f 20 |%s\"; re|define? |
|000017f0| 22 20 64 65 66 69 6e 65 | 2d 61 62 62 72 65 76 5d |" define|-abbrev]|
|00001800| 20 37 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 7]).(de|falias '|
|00001810| 69 6e 76 65 72 73 65 2d | 61 64 64 2d 6d 6f 64 65 |inverse-|add-mode|
|00001820| 2d 61 62 62 72 65 76 20 | 23 5b 28 61 72 67 29 20 |-abbrev |#[(arg) |
|00001830| 22 c0 09 83 09 00 5c 6e | 82 10 00 0b 86 10 00 c4 |".....\n|........|
|00001840| c5 21 c6 0e 07 23 87 22 | 20 5b 69 6e 76 65 72 73 |.!...#."| [invers|
|00001850| 65 2d 61 64 64 2d 61 62 | 62 72 65 76 20 6f 6e 6c |e-add-ab|brev onl|
|00001860| 79 2d 67 6c 6f 62 61 6c | 2d 61 62 62 72 65 76 73 |y-global|-abbrevs|
|00001870| 20 67 6c 6f 62 61 6c 2d | 61 62 62 72 65 76 2d 74 | global-|abbrev-t|
|00001880| 61 62 6c 65 20 6c 6f 63 | 61 6c 2d 61 62 62 72 65 |able loc|al-abbre|
|00001890| 76 2d 74 61 62 6c 65 20 | 65 72 72 6f 72 20 22 4e |v-table |error "N|
|000018a0| 6f 20 70 65 72 2d 6d 6f | 64 65 20 61 62 62 72 65 |o per-mo|de abbre|
|000018b0| 76 20 74 61 62 6c 65 22 | 20 22 4d 6f 64 65 22 20 |v table"| "Mode" |
|000018c0| 61 72 67 5d 20 34 20 22 | 5c 0a 44 65 66 69 6e 65 |arg] 4 "|\.Define|
|000018d0| 20 6c 61 73 74 20 77 6f | 72 64 20 62 65 66 6f 72 | last wo|rd befor|
|000018e0| 65 20 70 6f 69 6e 74 20 | 61 73 20 61 20 6d 6f 64 |e point |as a mod|
|000018f0| 65 2d 73 70 65 63 69 66 | 69 63 20 61 62 62 72 65 |e-specif|ic abbre|
|00001900| 76 2e 0a 57 69 74 68 20 | 70 72 65 66 69 78 20 61 |v..With |prefix a|
|00001910| 72 67 75 6d 65 6e 74 20 | 4e 2c 20 64 65 66 69 6e |rgument |N, defin|
|00001920| 65 73 20 74 68 65 20 4e | 74 68 20 77 6f 72 64 20 |es the N|th word |
|00001930| 62 65 66 6f 72 65 20 70 | 6f 69 6e 74 2e 0a 54 68 |before p|oint..Th|
|00001940| 69 73 20 63 6f 6d 6d 61 | 6e 64 20 75 73 65 73 20 |is comma|nd uses |
|00001950| 74 68 65 20 6d 69 6e 69 | 62 75 66 66 65 72 20 74 |the mini|buffer t|
|00001960| 6f 20 72 65 61 64 20 74 | 68 65 20 65 78 70 61 6e |o read t|he expan|
|00001970| 73 69 6f 6e 2e 0a 45 78 | 70 61 6e 64 73 20 74 68 |sion..Ex|pands th|
|00001980| 65 20 61 62 62 72 65 76 | 69 61 74 69 6f 6e 20 61 |e abbrev|iation a|
|00001990| 66 74 65 72 20 64 65 66 | 69 6e 69 6e 67 20 69 74 |fter def|ining it|
|000019a0| 2e 22 20 22 70 22 5d 29 | 0a 28 64 65 66 61 6c 69 |." "p"])|.(defali|
|000019b0| 61 73 20 27 69 6e 76 65 | 72 73 65 2d 61 64 64 2d |as 'inve|rse-add-|
|000019c0| 67 6c 6f 62 61 6c 2d 61 | 62 62 72 65 76 20 23 5b |global-a|bbrev #[|
|000019d0| 28 61 72 67 29 20 22 c0 | 09 c2 0b 23 87 22 20 5b |(arg) ".|...#." [|
|000019e0| 69 6e 76 65 72 73 65 2d | 61 64 64 2d 61 62 62 72 |inverse-|add-abbr|
|000019f0| 65 76 20 67 6c 6f 62 61 | 6c 2d 61 62 62 72 65 76 |ev globa|l-abbrev|
|00001a00| 2d 74 61 62 6c 65 20 22 | 47 6c 6f 62 61 6c 22 20 |-table "|Global" |
|00001a10| 61 72 67 5d 20 34 20 22 | 5c 0a 44 65 66 69 6e 65 |arg] 4 "|\.Define|
|00001a20| 20 6c 61 73 74 20 77 6f | 72 64 20 62 65 66 6f 72 | last wo|rd befor|
|00001a30| 65 20 70 6f 69 6e 74 20 | 61 73 20 61 20 67 6c 6f |e point |as a glo|
|00001a40| 62 61 6c 20 28 6d 6f 64 | 65 2d 69 6e 64 65 70 65 |bal (mod|e-indepe|
|00001a50| 6e 64 65 6e 74 29 20 61 | 62 62 72 65 76 2e 0a 57 |ndent) a|bbrev..W|
|00001a60| 69 74 68 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |ith pref|ix argum|
|00001a70| 65 6e 74 20 4e 2c 20 64 | 65 66 69 6e 65 73 20 74 |ent N, d|efines t|
|00001a80| 68 65 20 4e 74 68 20 77 | 6f 72 64 20 62 65 66 6f |he Nth w|ord befo|
|00001a90| 72 65 20 70 6f 69 6e 74 | 2e 0a 54 68 69 73 20 63 |re point|..This c|
|00001aa0| 6f 6d 6d 61 6e 64 20 75 | 73 65 73 20 74 68 65 20 |ommand u|ses the |
|00001ab0| 6d 69 6e 69 62 75 66 66 | 65 72 20 74 6f 20 72 65 |minibuff|er to re|
|00001ac0| 61 64 20 74 68 65 20 65 | 78 70 61 6e 73 69 6f 6e |ad the e|xpansion|
|00001ad0| 2e 0a 45 78 70 61 6e 64 | 73 20 74 68 65 20 61 62 |..Expand|s the ab|
|00001ae0| 62 72 65 76 69 61 74 69 | 6f 6e 20 61 66 74 65 72 |breviati|on after|
|00001af0| 20 64 65 66 69 6e 69 6e | 67 20 69 74 2e 22 20 22 | definin|g it." "|
|00001b00| 70 22 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 28 |p"]).(de|falias (|
|00001b10| 71 75 6f 74 65 20 69 6e | 76 65 72 73 65 2d 61 64 |quote in|verse-ad|
|00001b20| 64 2d 61 62 62 72 65 76 | 29 20 23 5b 28 74 61 62 |d-abbrev|) #[(tab|
|00001b30| 6c 65 20 74 79 70 65 20 | 61 72 67 29 20 22 c0 89 |le type |arg) "..|
|00001b40| 89 19 1a 1b 8a 0c 5b 76 | 88 60 c5 76 88 60 89 12 |......[v|.`.v.`..|
|00001b50| 7b 13 29 c6 c7 c8 0e 09 | 0b 23 21 11 ca 0b 0e 0b |{.).....|.#!.....|
|00001b60| 5c 22 83 34 00 cc c7 cd | 0b ca 0b 0e 0b 5c 22 23 |\".4....|.....\"#|
|00001b70| 21 85 43 00 ce 0e 0b 0b | 97 09 23 88 8a 5c 6e 62 |!.C.....|..#..\nb|
|00001b80| 88 cf 20 29 2b 87 22 20 | 5b 6e 69 6c 20 65 78 70 |.. )+." |[nil exp|
|00001b90| 20 6e 61 6d 65 6c 6f 63 | 20 6e 61 6d 65 20 61 72 | nameloc| name ar|
|00001ba0| 67 20 31 20 72 65 61 64 | 2d 73 74 72 69 6e 67 20 |g 1 read|-string |
|00001bb0| 66 6f 72 6d 61 74 20 22 | 25 73 20 65 78 70 61 6e |format "|%s expan|
|00001bc0| 73 69 6f 6e 20 66 6f 72 | 20 5c 22 25 73 5c 22 3a |sion for| \"%s\":|
|00001bd0| 20 22 20 74 79 70 65 20 | 61 62 62 72 65 76 2d 65 | " type |abbrev-e|
|00001be0| 78 70 61 6e 73 69 6f 6e | 20 74 61 62 6c 65 20 79 |xpansion| table y|
|00001bf0| 2d 6f 72 2d 6e 2d 70 20 | 22 25 73 20 65 78 70 61 |-or-n-p |"%s expa|
|00001c00| 6e 64 73 20 74 6f 20 5c | 22 25 73 5c 22 3b 20 72 |nds to \|"%s\"; r|
|00001c10| 65 64 65 66 69 6e 65 3f | 20 22 20 64 65 66 69 6e |edefine?| " defin|
|00001c20| 65 2d 61 62 62 72 65 76 | 20 65 78 70 61 6e 64 2d |e-abbrev| expand-|
|00001c30| 61 62 62 72 65 76 5d 20 | 37 5d 29 0a 28 64 65 66 |abbrev] |7]).(def|
|00001c40| 61 6c 69 61 73 20 27 61 | 62 62 72 65 76 2d 70 72 |alias 'a|bbrev-pr|
|00001c50| 65 66 69 78 2d 6d 61 72 | 6b 20 23 5b 28 26 6f 70 |efix-mar|k #[(&op|
|00001c60| 74 69 6f 6e 61 6c 20 61 | 72 67 29 20 22 08 84 07 |tional a|rg) "...|
|00001c70| 00 c1 20 88 c2 20 13 70 | 14 c5 63 87 22 20 5b 61 |.. .. .p|..c." [a|
|00001c80| 72 67 20 65 78 70 61 6e | 64 2d 61 62 62 72 65 76 |rg expan|d-abbrev|
|00001c90| 20 70 6f 69 6e 74 2d 6d | 61 72 6b 65 72 20 61 62 | point-m|arker ab|
|00001ca0| 62 72 65 76 2d 73 74 61 | 72 74 2d 6c 6f 63 61 74 |brev-sta|rt-locat|
|00001cb0| 69 6f 6e 20 61 62 62 72 | 65 76 2d 73 74 61 72 74 |ion abbr|ev-start|
|00001cc0| 2d 6c 6f 63 61 74 69 6f | 6e 2d 62 75 66 66 65 72 |-locatio|n-buffer|
|00001cd0| 20 22 2d 22 5d 20 31 20 | 22 5c 0a 4d 61 72 6b 20 | "-"] 1 |"\.Mark |
|00001ce0| 63 75 72 72 65 6e 74 20 | 70 6f 69 6e 74 20 61 73 |current |point as|
|00001cf0| 20 74 68 65 20 62 65 67 | 69 6e 6e 69 6e 67 20 6f | the beg|inning o|
|00001d00| 66 20 61 6e 20 61 62 62 | 72 65 76 2e 0a 41 62 62 |f an abb|rev..Abb|
|00001d10| 72 65 76 20 74 6f 20 62 | 65 20 65 78 70 61 6e 64 |rev to b|e expand|
|00001d20| 65 64 20 73 74 61 72 74 | 73 20 68 65 72 65 20 72 |ed start|s here r|
|00001d30| 61 74 68 65 72 20 74 68 | 61 6e 20 61 74 20 62 65 |ather th|an at be|
|00001d40| 67 69 6e 6e 69 6e 67 20 | 6f 66 20 77 6f 72 64 2e |ginning |of word.|
|00001d50| 0a 54 68 69 73 20 77 61 | 79 2c 20 79 6f 75 20 63 |.This wa|y, you c|
|00001d60| 61 6e 20 65 78 70 61 6e | 64 20 61 6e 20 61 62 62 |an expan|d an abb|
|00001d70| 72 65 76 20 77 69 74 68 | 20 61 20 70 72 65 66 69 |rev with| a prefi|
|00001d80| 78 3a 20 69 6e 73 65 72 | 74 20 74 68 65 20 70 72 |x: inser|t the pr|
|00001d90| 65 66 69 78 2c 0a 75 73 | 65 20 74 68 69 73 20 63 |efix,.us|e this c|
|00001da0| 6f 6d 6d 61 6e 64 2c 20 | 74 68 65 6e 20 69 6e 73 |ommand, |then ins|
|00001db0| 65 72 74 20 74 68 65 20 | 61 62 62 72 65 76 2e 22 |ert the |abbrev."|
|00001dc0| 20 22 50 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "P"]).(|defalias|
|00001dd0| 20 27 65 78 70 61 6e 64 | 2d 72 65 67 69 6f 6e 2d | 'expand|-region-|
|00001de0| 61 62 62 72 65 76 73 20 | 23 5b 28 73 74 61 72 74 |abbrevs |#[(start|
|00001df0| 20 65 6e 64 20 26 6f 70 | 74 69 6f 6e 61 6c 20 6e | end &op|tional n|
|00001e00| 6f 71 75 65 72 79 29 20 | 22 8a 08 62 88 64 09 5a |oquery) |"..b.d.Z|
|00001e10| c2 89 1b 1c 1d 6d 3f 85 | 41 00 c6 76 88 60 89 14 |.....m?.|A..v.`..|
|00001e20| 64 0d 5a 58 85 41 00 c7 | 8a c8 76 88 60 29 0c 7b |d.ZX.A..|..v.`).{|
|00001e30| 89 13 21 83 0c 00 0e 09 | 84 3b 00 ca cb cc 0b 5c |..!.....|.;.....\|
|00001e40| 22 21 83 0c 00 cd 20 88 | 82 0c 00 2c 87 22 20 5b |"!.... .|...,." [|
|00001e50| 73 74 61 72 74 20 65 6e | 64 20 6e 69 6c 20 73 74 |start en|d nil st|
|00001e60| 72 69 6e 67 20 70 6e 74 | 20 6c 69 6d 20 31 20 61 |ring pnt| lim 1 a|
|00001e70| 62 62 72 65 76 2d 65 78 | 70 61 6e 73 69 6f 6e 20 |bbrev-ex|pansion |
|00001e80| 2d 31 20 6e 6f 71 75 65 | 72 79 20 79 2d 6f 72 2d |-1 noque|ry y-or-|
|00001e90| 6e 2d 70 20 66 6f 72 6d | 61 74 20 22 45 78 70 61 |n-p form|at "Expa|
|00001ea0| 6e 64 20 60 25 73 27 3f | 20 22 20 65 78 70 61 6e |nd `%s'?| " expan|
|00001eb0| 64 2d 61 62 62 72 65 76 | 5d 20 34 20 22 5c 0a 46 |d-abbrev|] 4 "\.F|
|00001ec0| 6f 72 20 61 62 62 72 65 | 76 20 6f 63 63 75 72 72 |or abbre|v occurr|
|00001ed0| 65 6e 63 65 20 69 6e 20 | 74 68 65 20 72 65 67 69 |ence in |the regi|
|00001ee0| 6f 6e 2c 20 6f 66 66 65 | 72 20 74 6f 20 65 78 70 |on, offe|r to exp|
|00001ef0| 61 6e 64 20 69 74 2e 0a | 54 68 65 20 75 73 65 72 |and it..|The user|
|00001f00| 20 69 73 20 61 73 6b 65 | 64 20 74 6f 20 74 79 70 | is aske|d to typ|
|00001f10| 65 20 79 20 6f 72 20 6e | 20 66 6f 72 20 65 61 63 |e y or n| for eac|
|00001f20| 68 20 6f 63 63 75 72 72 | 65 6e 63 65 2e 0a 41 20 |h occurr|ence..A |
|00001f30| 70 72 65 66 69 78 20 61 | 72 67 75 6d 65 6e 74 20 |prefix a|rgument |
|00001f40| 6d 65 61 6e 73 20 64 6f | 6e 27 74 20 71 75 65 72 |means do|n't quer|
|00001f50| 79 3b 20 65 78 70 61 6e | 64 20 61 6c 6c 20 61 62 |y; expan|d all ab|
|00001f60| 62 72 65 76 73 2e 0a 49 | 66 20 63 61 6c 6c 65 64 |brevs..I|f called|
|00001f70| 20 66 72 6f 6d 20 61 20 | 4c 69 73 70 20 70 72 6f | from a |Lisp pro|
|00001f80| 67 72 61 6d 2c 20 61 72 | 67 75 6d 65 6e 74 73 20 |gram, ar|guments |
|00001f90| 61 72 65 20 53 54 41 52 | 54 20 45 4e 44 20 26 6f |are STAR|T END &o|
|00001fa0| 70 74 69 6f 6e 61 6c 20 | 4e 4f 51 55 45 52 59 2e |ptional |NOQUERY.|
|00001fb0| 22 20 22 72 5c 6e 50 22 | 5d 29 0a                |" "r\nP"|]).     |
+--------+-------------------------+-------------------------+--------+--------+